LABEL OOOOOOOOOLINE 00178299CC EX 0/R; COMMON»i;f ILE LINE = LINE PRINT/FILE SaPATCHES/PASC AL;END«- /R 

FILE* Patches/pascal Thursday io/26/78 03159 pm 

S# patch 1 FOR pascal. XVI. CONTAINS 10 CARDS, CORRECT SPELLING & TABULATION 
$1 PATCH TO CORRECT SPELLING In SOME ERROR MESSAGES* CORRECT TABULATION OF CODE 
St Or comments* and to correct the call on the PROCEDURE TO GIVE A NEW PAGE. 
$1 *** NOTE THAT E«R0R(71) IS NOW NO LONGER USED - SEE PATCH 513. 
SI IS WAS USED ONCE* BUT INCORRECTLY, ERR0RC63) IS CALLED IN ITS PLACE, 
$» *** NOTE THAT THE ALGOL CODf FILE ••PASCRUN"/''DI SK" HAS BEEN RENAMED 

$1 "Pascal'Vprelude". n is no longer referenced dIRectly in this compiler 

S« NILS A OTTE, university oF NATAl* DURBAN. AUG - NOV 1977. 
Si 

BEGIN ; % NULL **** «) REWRITE 50203000 

GENC^PUT^^a^S); %*** 5) PAGE 50204000 

GEN("PPAGE"»5»3); % 502Q8000 

BLOCK? %*** COMPILE PROCEDURE BODY *♦* 80646000 

COMPSTAT; X*** COMPILE STATEMENT PART *** 80691000 

C 41 ALFA CONSTANTS MAy NOT BE LONGER THAN 7 CHARACTERS.")* 91045000 

(♦' 55 PROCEDURE NESTING DEPTH + NO OF RECORDS IS TOO GREAT,")* 91060000 

C" 87 END-0F-INI»UT ENCOUNTERED UNEXPECTEDLY.")* 91094000 

C" 97 TOO MANY FILES IN USE.")* 91104000 

END OF 65700 PASCAL COMPILER*.! 99001000 

S# PATCH 2 FOR PASCAL CONTAINS l7l CARDS, 

SJ PATCH TO MERGE DAG LANGMyHRS PPPIO TO PPPll COSY PATCHES 

SJ WITH NILS OTTES MODIFIED PPPIO SOURCE. 

$» DAVID A COOPER * HErIOT-wATT UNIVERSITY* JANUARY 1978. 

SI 

FILE CARD "SOURCE" (1*10*30)J % SOURCE CODE FILE 10035000 

FILE LINES 1 (1,17); * PRINT FILE 10036000 

FILE PASCALGOL DISK SERIAL t20j600J ( 1 * 10* 30* SAVE 0); % CODE FILE 10037000 

ARRAY PARAmTAB* FORWPARAMl* F0RWPARAM2C0 I MAXPARAMS ]; 10109000 

FILE XREFFILE DISK SERIAL C2OI3OOO] (1*3*30); 10137000 

ALPHA ARRAY XBUFFt0l2]; 10138500 

BOOLEAN XINB; 10138550 

INTEGER ARRAY SYMK INDCO 1 623 ; XUSED IN ERROR RECOVERY. 10149000 

eRRorioomess (//"loo Illegal save constant in t.«nt,Ns""""" oPTiONioieesoo 
, The Value 07 is substituted"/" so this eRROR dOes not increment thioi8860o 

E compilation errors count."//),* 10188700 

PACKE0SY«61#* ASSERtSY«62*; 10211000 

X 20181500 

% 20181550 

IF ERRNUM=100 20181600 

THEN NuMERRSl«NuMERRS-i;a; * ERROR NUMBER lOO ALONE SHOULD NOT 2Gl8l650 

% * PREVENT THE XALgOL COMPILATION BEING 20181700 

% * ZIPPED AS THE VALUE 7 IS SUBSTITUTED 20181750 

% * FOR A BAD Save constant IN AN "S" 20181800 

% * OPTION. 20181850 

% 20181900 

% 20181950 

7( INITIAL)* MIDDLE* initial; 20308000 

"400READ"* "6READLN''* "50RESET", "6UNPACK"* "50WRITE"* 203/3000 

"6QQJZXL" 00 20373500 

IF DECL THEN AX t« -AX; 20520000 

ABS(At23) LEQ ABS(BC2]); 20539000 

X 20541100 

X 20541150 



% 20541200 

BOOLEAN PROCEDURE XREFI nPUT( A ) ; 20541250 

ARRAY ACOJ; 20541300 

BEGIN 20541350 

LABEL EOF; 20541400 

INTEGER i; 20541450 

X 20541500 

READ(XREFFlLE,3#XBUFF[*])CFaF]; 20541550 

FOR n=0,l,2 DO 20541600 

ACn i' XBUFFCn; 20541650 

IF FALSE THEN EOF» BEGIN 20541700 

CLOSE CXREFF I LE, RELEASE); 20541750 

XINb »= true; 20541800 

ENO; 20541850 

XREFINPUT »= XINB; 20541900 



X 



20541950 



ENO OF XREFINPUT; 20541960 

A2 if -a2; 20570000 

BOOLEAN LPARF0UND*SAVEXREF0PT; 20842000 

SAVEXREFOPT «* XREFqPTION; XREFOPTION > = FAlSE; 20847500 
IF SAVEXREFOPT THEN NEWXREF ( CURNAMEl #CURNAME2* THI SLEVEL# 20861500 

FALSE); 20861550 

XREFOPTION :« SAVEXREFOPT; 20868500 

% ASSERT 62 ASSeRTSY INITIAL 30075500 

IF CURNAME1»''6ASSERT" THEN ASSERTSy ELSE 30165500 

EnDX 30280000 

X 

X 

X THE FOLLOWING LInES DECODE AnY OCCURRENCE 0^" THE "S*' OPTION AnD 30280075 

% SETS THE GLOBAL INTEGER VARIABLE "SAVEFaCTOR" WHICH CONTROLS THE 30280100 
X TYPE OF COMPILATION iNlTUTEn BY THE ZIP, THERE ARE THREE LEGAL FORMS 30280125 

X OF THE "S" OPTION AS FOLLOWSJ- 30280150 

X 30280175 

X "S-" HILL GIVE NO ZIP IE. PASCAL SYNTAX CHECK ONLY 30280200 

X "S+'' WILL GIVE A Zip FOR COMPILE AND GO 30280225 

X "S??" WILL GIVE A Zip FOR COMPILE TO LIBRARY 30280250 

X rtHERE ?? IS THf two DIGIT DECIMAL SAVE 30280275 

X CONSTANT GIVEN THE OBJECT CODE FILE 30280300 

X NB, IF THE SAVE CONSTANT IS TO BE 30280325 

X LESS THAN lO THE FIRST DIGIT 30280350 

X MUST BE INCLUDED IE. A "0". 30280375 



30280025 
30280050 



X 
X 



30260400 

30280425 

ELSE 30280450 

IF CXs^^S" THEN 30280475 

BEGIN 30280500 

IF C*"-" THEN SAVEFACTORt»-l eLSe 30280525 

IF C="+" THEN SAVEFACTORJs ELSE 30280550 

IF C LeQ 9 THpN 30280575 

BEGIN 30280600 

savefactor la 10 X c; nextchar; 3028O625 

SAVEFACTOR «= SAVEFACTOR ♦ Cj 30280650 

IF C GTR 9 then ERROR (100)^ 30280675 

END 30280700 

ELSE 30280720 

BEGIN 30280735 

ERRORClOO); 30280750 



SAVEFACTOr Is 7; 30280765 

end; 30280780 

end; 30280800 

t 30280825 

X 30280850 

X 30280875 

INTEGER ExPRLEVEL»TX*EXPINVARCmt^X 40018000 

BOOLEAN INBRACkET#INRECORD,SIMPLEvAR; 40087000 

SIMPLEVAR «= false; 40099000 

CURTYPE 1= THISID.TYPE; SIMPLEVAR Ja TRUE; 40104000 

SIMPLEVAR «= false; 40109000 

EXPINVARCNTl«EXPINvARCNT+i;X 4 0120500 

EXPlNVARCNTt«EXPINvARCNT'i;X 40121500 

SIMPLEVARIABLE t» SIMPLEVAr; 40199500 

IF EXPINVARCNT«0 THEN WRiTEEXPR; % 40751000 

LABEL EFH; 50201500 

%*** 6) OPEN & CLOSE (INPUT) FOR 50204500 

X CUMULATIVE FREQUENCY COUNT50204550 

BEGIN 50208100 

GEN("Q0J2XL"*6f2); 50208200 

IMSYMBOL; 50208300 

GO TO EFH; % 50208400 

end; 50208500 

EFHl 50219500 

EXPRLEVEL «s i; 60346500 

IF THISlD.lDCLASSaVAR OR 60354000 

THISID.IDClASSbCOmST AND BOOlEANC THIS 10 . FORMAL ) THEN X 60354500 

EXPRLEVEL Is 0; 60383500 

PROCEDURE aSSeRTSTaT; 60391100 

BEGIN 60391200 

gencif n0t('s7m); 60391400 

insymbol; boolexpr; 60391500 

6en(") then''*7#2); gen(«runerr (♦% 7*1 ) ; gen ( "7* ", 2> 6 ); 60391600 

GENINT(CAROCNT); GENC " )"» 1 W ) ; 60391700 

END OF ASSERTSTaT; 60391800 

IF CURNaMe1»"6QQJZxL'' THEN FILEHANDL ING(6 ) ELSE 60443500 

IF CURSYsASSERTSY THEN ASSfRTSTAT ELSE 60*57500 

IF PARAM then GEN(''0'M/7) ELSE BEGIN 80129000 

GEN("0I''#2#6); 80129100 

GENINT(RECSIZE-l); 80129200 

END 80129300 

FORwPARAh«ltNUMPARAMS] l« CURNAMEi; 80177500 

F0RWPARAM2[NUMPARAmS] I« CURNAME2; 80177600 

INTEGER INDEX* CTYPE# NUMFnRWARDS, J, TX* i; 80*03000 

ALPHA T3; 80403500 

LABEL LLi; X 80447010 

LABEL LL2; X 80496010 

LABEL LL3; X 80542010 

IF CURLEVEL GEQ MAXTABlES ThEN ERROR(iOl) ELSE 80543500 

BLOCKTABCCURLEVEL+1 ] 1= NUMBLOCKS Is NUMBLOCKS + i; 80543600 

NAMETAB3tCURLEVEL*THISlNDEX].F0RWARDDEF Is o; 80553000 

T Is nAwETAB3[CUrLEVEL»THISInDEX].InF0; 80554500 

TX l« T + PA«AMTaB[T]; 80554600 

FOR IlsT+1 STEP 1 UNTIL TX DO 80554700 

NEWNAMECF0RWPARAMltn'f0RWPARAM2£n*CuRLEvEL+n; 80554800 

REPLACE P0INTe:R(NAMetAB1CCURLEVeL + 1**]) by 80637500 

FOR MAXNAMES+l WORDS; 80637600 



IF CURLEVEL GEQ LASTrEC THEN ERRORCIOU; % 80643000 

X 90014100 

% 90014200 

SAVEFACTOR:aO;X * DEFAULT ZIP IS COMPILE AND GO UNLESS 90014300 

% * CHANGED BY THE USE OF THE ♦'S" OPTION 90014400 

% 90014500 

% 90014600 

X 90042100 

X THE FOLLOWING L^NES ADD A "O" ONTO THE FRONT OF THE PROGRAM nAmE 0R90042200 

X THE FIRST SiX CHARACTERS THEREOF IF IT Is LONGER THAN SIX CHARACTERS 900'«2300 

X THUS GIVING THE ^fi^^l Of THE XaLgOL Ob^EcT cODE FILE PrOdUCED. 90042400 

X 90042500 

PROgNaME t= cURNAMEl.t35«363^ PROgN aMeLeNGTH J» M INC 6# cURLeNGTH) ♦U 90042600 

X 90042700 

X 90042800 

BEGINX 90090400 

WRITECLINE *NOERRORS);x 90090500 

IF ERRC1003X 90090600 

THEN WRITECLINE #ERR0R1 OOmESS ) * X 90090700 

IF SaVEFACTOR>0 THENX *a zip is required 90090800 

SVOIOT 90111000 

ENOX 90129500 

("100 ILLEGAL SAVE COnSTanT IN «H..MHS«HnHM qptiqn, THE VALUE 07 IS91106500 

SUBSTITUTED"/" SO THIS ERRnR DOES NOT INCREMENT THE COMPILATION ERR091106600 

RS COUNT, "J^X 91106700 

C^lOl PROCEDURES/FUNCTIONS nESTEO TOO DEEP,")' 91106800 

REWINDCXREFFILE); 92003500 

S0Rt<PPINtXREF,xREFINPuT'0,xREFMAx#XREFC0MPARE#3*1000,6000); 92005000 

t# PaTcH 508 FOR PaScaL.XVI,0 (^QNTaINS 5 CaRoS. PRT CELLS 25 TO 30 

St THIS PATCH CORRECTS THE OOCuMEnTATI ON FOR THE COMPILERS PRT CELLS 25 TO 27 

»» (NOT 21 TO 23), FURTHERMORE, IT USES PRT CELL 30 FOR ThE CARD COUNT (IN PLACE 

$« OF 27) TO BE CQNSISTANT WITh THE OTHER SYSTEM COMPILERS. PRT CELL 27 IS USED 

Sj For THE PAGE COUNT FORMERLY AT SEQUENCE lOl34000, 

$» nIlS A OTTE* UNIVERSITY nF nATA^* DURBAN* AUG - NOV 1977, 

$1 

INTEGER NUMeRRS# X eR+25« NUMBER ^F ERRORS IN PROGRAM, 10029000 

SAvEFACjOR, % PR+26« SAvEFACtOR FOR CODE FIlE. 10030000 

PAGECNT* X PR-f27« NUMBeR Op PAqES PRINTED* 10033800 

CARDCNT; X PR+3o: NUMBER OF CARDS READ, 10034000 

INTEGER LINECNT# ERRINX/ X PAGECNT P PRT+27 10134000 

S# PATCH 501 FOR PASCAL. XVI, CONTAINS 3 CAROS, ♦♦PRT25« FqR USER-S PASCAL PRQG. 

sj THIS PATCH Incorporates the pre-defined identifier «prt25" located 

S« at prT cell 25 as pEr OOCUMrNT aT ION , (THE DOCUMENTATION MUST BE 

Sj amended to DELETE PRt26 AND PHj27 FROM THE PRE-DEFINED IDENTIFIER LiST.) 

S« ** NOTE THaT file P aSCAL/PRELUOE MUST BE UPDATED FOR "PRT25", 

it THE VARIABLE "PRt25" MAY BE SET BY THE Q COMMON * N CONTROL CARD. 

S» NILS A OTTE, UNIVERSITY oF NATAl* DURBAN, AUG - NOV 1977, 

St 

NEWNAMEC"50PRT25">0,0); X*** ♦♦PRT25" *** 20369i00 

T3tslNTTYPE; T3 , IDClASS t ayAR; X GLOBAL INTEGER VARIABLE 20369200 

nametab3co*thisindex3 i* t3; 20369300 

$# Patch 508 for pascal.xvi.o contains 3 caRds. line count when debugging 

SI TO correct the line count when the debugging option to LIST THE ALGOL 

St code generated is set C*SD+ *)* OTHERWISE LINES PER PAGE GOES WRONG. 
St NILS A OTTE, UNIVERSITY oF NATAl# DURBAN. AUG - NOV 1977, 
SI 

DEFINE LINESPERPAGE » 60 »* 10038000 
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asssfunc then 

isindex3.forwarodefi»o; 

nc and not fun) then err0r(43); 

*PARaMTaBCT3; % UNMaRK FORWARD PaRMS 

TIL TX DO % TO ALLOW REFERENCE 

Il.PARAMNAME* 

TAB1[CURLEVEL+1*T33); 

TAB2[CURLEVEL+1*T33; 

l*T33tsO; 

URNAME2,CURLEVEL+U; 

EN BEGIN 

AMNAMEtsTHISlNDEX; 

EI>1*THISINDEX3 !• 

El*l*T33; 

KING FORWARD PARAMETERS, 

L* IN0EX3,INF0)+PARAMTAB[T3; 

TX DO % MARK FORWARD PARAMETERS 

PARAMTABCI3.PARAMNAME3.C46I13 tu i; 
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80562000 
80563000 
80564000 
80565000 
80565010 
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80636100 
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m 



TXt«CuRFuNC; CuRrUNc:=ir f'UN then index else -U 80645000 

FOR I»=0 STEP 1 UNTIL MAXNAMES QO X LEAVE FORWARD PARAMETERS 80647000 

IF NAMETABHCURLFVEL*n>0 THEN NAMET ABHCURLEVEL# I] « *0; 80648000 

CuRLEvELJsCURLEvEL-i; CUR^UNC I kTX; 80649000 

FOR U*LASTREC STEP 1 UnTIl TqPREC^I DQ X ClEAR RECqRD DECS 80693000 

S# PATCH 505 FOR PASCAL. XVl.O CONTAINS 9 CARDS. CHECK FOR HASH TABLE FULL 

$1 WHEN THERE ArE -MaXNaMeS" IdENTIFIerS aT ONE LeVEL* THE "^NaMETAB*" rOWS 

si BECOME Full and this used th Put the compiler into an infinite loop* 

*i either in "newname'' or "searchtab". this Patch inserts test for wrap aRQund 

$« leading back to the hashed Starting point* poR which It gives syntax error 

$t H0» TOO MANY iDENTlFjERS DECLARED, 

$« NILS A OTTE, UNIVERSITY qF NATAl, DURBAN. AUG - NOV 1977. 
Si 

DEFINE HaSH(HASHI) = EnT lERC CHASHI ) MOD MAXnAMES) « ; 20202000 

BEGIN ALPHA TNAME; INTEGER WRAPAROUND; 2o209000 

WRaPaROUNo«*ThISINdEXJ=HaSH(CURNaME1); 20210000 

IF tHIsINDEx=WRAPAROUND then tnAMEJwO; % TABLE Is FULL 20216100 

ALPHA TNAMe; integer WRAPAROUND' 20237100 

WRAPAROUND » sTHIS I nDEx»«HaSH{ named; 20238000 

IF tHIsINDEx«WRAPAROUND then % TABLE AT THis LEVEL IS FULL 20244100 

BEGIN ERR0R(40); NAmEI « =TNAME; NAME2 » »NAmET AB2CT AB* THISInOEX ^20244200 

end; 20244300 

$# PATCH 506 For pascal. XVI. CONTAINS 2 CARDS. RESERVED WqRD ENDING AT CC 80 

$1 IF A RESERVED WORD EnDEO AT CARD COLUMN 79 OR 80 AND IF THE "BOLDFACE" FOR 

Si Reserved wordS option is set t*»R+ *)» an invalid index occurred in the 

SI SCANNER "INSYMBOL". THE PROBLEM Is CuRED BY CORRECTLY COMPUTING THE STARTING 

St AND ENDING POINT OF THE RESFfiVED WORDS. 

SI NILS A OTTE, UNIVERSITY nP NATAl, DURBAN. AUG - NOV 1977, 

SI 

BEGIN Tl la CARDlEnGTH-cHARCNT-CURlENGTH-i; 30178000 

FOR CuRLFNGTH+REAL(CHARCNT«0>; 30181000 

$# Patch 507 for Pascal.xvi.o contains 5 cards, "variable's "simplevaRiable" 

SI IN PROCEBURE "VARIABLE"* "SIMPLEVARI ABLE" IS SET TRUE IF A SUBSCRIPT Is 

SI SIMPLE* RESULTING IN ALGOL cODE BEING WRITTEN PREMATURELY DURING RECURSIVE 

SI CALLS ON PROCEDURE "EXPRESSION"* WHICH In SOME CASES LEAD TO ALGOL SYNTAX 

S| ERRORS, SINCE WRITING THE ALGOL CODE IS DEPENDANT ON "EXPRLEVEL" BEING ZERO* 

SI THIS PATCH BUMPS ITS ValUE pRiOR Tq ANAlYSInG THE SUBSCRIPT* AnO SETS 

Si "SIMPLEVARIABLE" FALSE AFTERWARDS. 

SI NILS A oTTE* UNIVERSITY qF NATAL* DURBAN, AUG - NqV 1977. 

SI 

EXPRLeVeL «« EXPRLfVEL+U * 0° NOT "WRITeeXPR" Y^T 40120900 

EXPRLEVEL l« ExPRLFVEL-W 40121100 

SiMPLEvARiABLE 1= pALSE; % RECURSION ON "vARjABLE" 40121200 

EXPRLEVEL «* EXPrLEVEL+U 60063900 

ExPRLEVEL IS EXPRLEvEL-'i; 60065100 

S# PATCH 509 For PASCAL.XVI.O coNTAInS 1 CARD. "ConCAT" A FUnCTIon QP AnY TYPE 

S| THE INTRINSIC FuNCtION "CONCAT" COuLD ONLY BE ASSIGNED TO A VARIABLE DECLARED 

%t "REAL" TO AVOID TYPE CONFLIcT SYNTaX ERRORS. THIS PaTCH MaKES "CONCAT" 

SI TYPELESS, 

SI NILS A OTTE' UNIVERSITY OF NATAL* DURBAN, AUG - NOV 1977, 
SI 

CURTYPE l« o; X ALFATYPE oR REALTYPE 50050000 

i(t PATCH 511 FOR PASCAL. XVI, CONTAINS 7 CARDS, ALLOW UP-LEVEL ADDRESSING 
Si TO ALLOW UP-LEVEL IDENTIFIER REFERENCES. FORMERLY* REFERENCES TO GLOBAL 
SI IDENTIFIERS WHICH WERE NqT TN THE qUTEr BLqCK WErE FLAGGED BY SYNTAX ERROR 
S| 5, UP"LEVEL ADDRESSING NOT IMPLEMENTED DUE TO HARDWARE RESTRICTION, 
*« ALTHOUGH THE RESTRICTION EXtSTS IN EXTENDED ALGOL* IT IS NOT TRUE THAT THE 
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NILS A OTTE, UNIVERSITY qF NATAl, DURBAN. 
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IF 
%IF 



ERRNUM<0 THEN ERRNUMi =ArS( ERRNUM ) ELSE 
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(" 5 function NAME NOT ACCESSIBLE AT TH 
PATCH 512 FOR PASCAL. XVI, CONTAINS 24 CARDS 
TO ALLOW STRUCTURED ASSIGNMENT. FORMERLY* A 
WAS NOT IMPLEMENTED* EG A* B« RECqRD .,, EN 
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ALGOL ARRAY. THIS IMPLEMENTATION DOES WOR 
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pascal/prelUdei define aSSign(DESt, Source* 
BY poIntercsdurce) for LENGtH WOROs «i 

nils a OTTE* university of natal* DURBAN, 
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STRUCTURED ASSIG 

OF A STRUCTURE 

S OF ANY KIND, 
A MULTI-DIMENSIO 
, RECORDS, 



80900 
03000 
44000 
06000 
91000 
76000 
09000 
NMENT 



NAL 



QuiRED In 

) ■ REPLAC 



THE FILE 

E POInTEr(DEST) 



AUG - NOV 1977, 



S« 
Si 



PROCEDURE WRiTESExPR* 
BEGIN 

IF INSIDEBRACKETS THEN 



THEN SYMTABCNUMSYMS] i= ", 3 



%*** FIX STRUCTURE FqR ASSIGNMENT 
X USED ONLY IN ASSIGNMENT OF STRUCTURES 
IF SYMTABCNUMSYMS] 5 "100000, •♦ 



ELSE PUTSYMC"]"); 



WHILE NUMP0INTERS>0 DO 

BEGIN NUMPOINtERS i= NUMPQlNTERS-U 

IF NUMSYMS+4 > MaXSYMs THEN WRITEEXPR; 

REPLACE P0INTER(SYMTAbCNUMSYMS*1]) BY 

"OO-DDIVOO 1022,00 T MOOOO 10223"^ 
NUMSYMS I« NUMSYMS+4; 
end; X OF WHILE 



WRITEEXPR; GEN( 

END writesexpr; 



1*7 ); 



xerr0r(95); x structured assignment not implemented, 
gen("assign(",7,i); writeSexpr; 
expression; writesexpr; 



GENINT(TYPETABltLEFTTYPE],SlZE); 
IF 



GEN{")»',1,7); 



T Y PET ABlCLEFTTYPEj.SlZE^TYPETABHCURTYpE], SIZE 

then err0r(95); 
end; 

CHECKTYPESt LEFTTYPE* cURTYPE ); 
(•• 95 SIZE OF STRUCTURES IN ASSIGNMENT ARE NOT THE SAME."), 
PATCH 513 FOR PASCAL. XVl.O cONtAINs 16 CARDS. FIX POINTERS VIA 
TO CORRECT THE CODE GENERATED FOR CHAINED REFERENCES THROUGH THE 



POINT 
HEAP 



60020000 
60021000 
60022000 
60023000 
60024000 
60025000 
60026000 
60027000 
60026000 
60029000 
60030000 
60031000 
60032000 
60033000 
60034000 
60063000 
60064000 
60065000 
60066000 
60067000 
60066000 
60087000 

60088000 
91102000 

ERS 



»« IE FOR POINTERS TO POINTERS. THE OFFSET FoR COMPONENTS WITHIN RECORDS 

$1 WAS INCORRECTLY BEING ADDED TO THE RECORD IN THE LEFTMOST REFERENCE* IE THE 

Si INNERMOST* INSTEAD OF AT THf EXPECTED LEVEL. 

»l FOR EXAMPLE* THE FOLLOWING ywO REFERENCES WOuLD BOTH BE TRANSLATED TO 

SI THE Same algol code eQuivaLitnt to HEaPCHEaPHD+IPaRT+IcOMP]]! 

SI IDf .PARTP.COMP, IDP.PARf.COMPP, 

»i whEn thf First should have reeni heapchEapcid+ipartj+icomp], 

$1 In addition* this patch improves the compilers code for generating the 

$J "MEM" array subscript. 

$1 NILS A qtte* University qf natal# durban. i977-ii-ia 
$t 

IF NUMSYMS+6 i MaXsYMS THeN 40175000 

NuMSYMS I* NUMSYmS+2* 40180400 

IF NUMPOINTe^S > X pointer via pointer 40180500 

THEN BEGIN «EPLACE PQInTERC SyMTABCnUMSyMS + I] ) By 40180600 

"00-i)0IV00 i022*00 T MOOOO 1022]''; 40180700 

NUmSYmS I* NUMSYMS+4i 40180800 

END 40180900 

ELSE NUMPOiNTERS «= U 40181000 

% INBRACKET t= false; 40191100 

BEGIN NUMPOINTeRS Is NuMPO INTeRS-i; 40193000 

IF NuMSYMS+4 < MaxSYMS 40194000 

THEN BEGIN REPLACE PO INTER ( SYMTAB tNUMSYMS+1 ] ) BY 40194100 

"OO-nolVOO 1022*00 T MODOO 1022]''; 40194200 

NUMSYMS »a NUMSYMS+4; 40194309 

END 40194400 

ELSE ERR0R(63); % EXPRESSION IS TOO LONG FOR SYMTABt*] 4ol95o00 

*# PaTcH 514 FOR PaSCAL.XVI.O (^ONTaINS 2 CAROS, PROCESS TIME FUNCTION FOR RUN 

$1 PATCH TO CHANGE THE NAME OF THE FUNCTION ON THE 85700 VERSION WHICH SUPPLIES 

tl THE PROCESS TIME USED B^ THp PASCAL PROGRAM ON THE CURRENT RUN FROM "eLAPSed" 

»» WHICH MEANS PLATFORM TIME, TO "CPUTIME" WHICH IS THE WIDELY ACCEPTED TERM 

$1 FOR THIS QUANTITY, 

$1 nIlS a OTTE* UNIVERSITY qF NATAl* DURBAN. AUG - NOV 1977. 
St 

NEWNAMEC''7CPUTIM*'*"E*'*0); N AMET AB3 1 0* THISINDEX ] t «T3 ; 20390000 

IF CURNAME1=''7CPUTTM'' AND CURNAME2«''£" THEN % "CPUTIME" 40452000 
S* PaTcH 516 FOR P aSc aL. XVI .0. cONTaINS 2 CaRdS. CORRECT "NO LISTING" ERROR 
SI THIS PATCH CORRECTS AN ERROR wHEREBY IF LISTING hAS TURNED OFF 
St AND PAGE Throw WAS INVOKED* A hEADiNG WAS PRINTED REGARDLESS, 
St DAVID A COOPER* HERIOT-WATT UNI VERSI TY .,.,, JUNE* 1978, 
SI 

IF CX»"L" THEN If C»1 THEN 30264000 

IF LISTOPTION THEN HEADING ELSE 3o2645oO 

s* Patch 517 for Pascal. xvi.o. contains 2 caRd. 

SI THIS PATCH CORRECTS AN ERROR THAT CAUSED A FILE DECLARATION 

»l TO HAVE its NAME STRING SPLtT OVeR TWO LINeS IN THE GENERATED XALGOL. 

SI ALSO CHANGES SyMTAB FORM TYPE REAL TO TYPE AlPHA. 

St DAVID A COOPER* HERIOT-WATT UNIVERSITY JUNE* 1978t 

St 

ALPHA ARRAY SYMTABt IMAXSYMS] ^ % USED BY "EXPRESSION", 10U4000 

IF ALgQLcNT LSS U THEN WrITEALGOL; 80103000 

S# PATCH 518 FOR PASCAL.XVI.O, CONTAINS 224 CARDS. 

St THIS Patch changes the way that multi-oimension aRRays 

SI REPRESENTING RECORDS ARE DECLARED. PREvIOSLY THEY WRE DECLARED 
St The WRONG WAY ROUN'D pOR XALfiOL, THIS PATCH SORTS THE DIMENSIONS 

SI Into ascending order from lfft to right and generates appropriate 

SI DEFINES and CODE FOR HANDLING THE ARRAYS. 



: $« STUART ANDERSON* COMPUTER ScIEnCE* HERIOT-WATT UNIVERSITY* JUNE 1978, 

*« 

DEFINE 10156200 

PERMSUB = C «# MAXTOtALSUBSCRS a lOOiK* 10156300 

ARRNAM » 1 #; 10156400 

ARRAY ARRSUBPERMTABCOJl*nJMAXTOTAUSUBSCRS]; 10156500 

INTEGER PASSPERMTAB* MAyPERMTAB* REMEMBERPOSn; 10156600 

$ 40080000 

BOOLEAN SIMPlEVARIABLE,INsIDEBRACKETS*INSIOE:PARENS; 40080100 

$ 40105000 

IF INSIOEPARENS and TYPETaBUCuRTYPE]. struct > AND 40105100 

T¥PETa81CCURTYPE],F0RM < FILES THEN 40105200 

PUTlDCH^^lOOCxTHlSLEVFL+THlSlNDEX^S) 40105300 

ELSE 40105400 

putid("V"»ioooxthisleve:l+thisindex*5); 40105500 

INSIOEPARENS js TRUE; 40258100 

insideparens ja false; 40259100 

$ 50243000 

GENIDCH'MOOOxThISLEVEL + THIS INDEX'S); 5024 3100 

$ 50307000 

GEN IDC "H'SIOOOxThISLEVEL + TH IS INDEX'S); 50 307100 

$SET VniDT 80052000 

$POP VOIDT 80064000 

DEFINE 80064005 

LOWSUBS = ## 80064010 

HISUbS = 1 #* 80064015 

NEXTSUBSa 2 «» 80064020 

MAXNOOFSUflSCRlPTS « 20 *» 80064025 

STOPPERSUBTAB « 21 #; 80064030 

ARRAY ARRSUBSCRiPTRANGECo»2*OlMAXNOGFSUBSCRlPTS]; 80064035 

INTEGER FIRSTRAnGE* NEXTfREEEnTRY* PASSSU8RaNGE# PREVPASS# 80064040 

MP* POSNO» SUBDIfF; 80064045 

IF ARRAYVAR then GEN<";'''1'7) else ARRAYvAR »s true; 800640S0 

IF not PARAM then 80064055 

BEGIN 80064060 

GEN("0EFINE'S7,2); 80064065 

GENIDCV/LEVELIOOO+NaM^S); 80064070 

GEN("C"*1#7); 80064075 

end; 80064080 

FIrSTrAnGE «= SToPPERSUBTaB; NEXTFREEEnTrY »» O; 80064085 

POSNO Js i; 80064090 

MP «» lo; firstdim j» trUf; 8OO64095 

00 80064100 

begin 80064105 

IF firstdim then FIRStdIM J= false else 80064110 

BEGIN 80064111 

IF NOT PARAW THEN GENf "* "» 1» 7 ); 80064112 

end; 80064113 
IF NOT PARAM THEN GE|sjIOC V* (LEVELIOOO + nAM )xMp + poSNO' IF Mp«10 80064115 

THEN 6 ELSE 7); POSNn «» POSNO 4 i; 8o064l20 

IF POSNO a MP THEN MP « " MPxlO; 80064125 

IF NEXTFREEENTRY a StOPPEHSUBTAB THEN 80064130 

BEGIN 80064135 

ERROR(O); 80064140 

END 80064145 

ELSE 80064150 

BEGIN 80064155 



m 



ARRSUBScRIPTRANGFCL0WSUeSfNEXTFREEENTRY]l«TYPETAB2CTYP]; 80064160 
ARRSUBSCRIPTRANGErHlSUBS,NEXTFREEENTRY] l« TYPETAB3t TYP ] ; 80064165 

end; 80064170 

SUBDIFF Is TYPETABatTYP] - TYPETAB2C TYP ] J 80064175 

IF FIRSTRANGE « STOPPfRSUBTAB THEN 80064180 

BEGIN 80064185 

FIRSTRANGE Is NEXtFREEENTRY; 8006'H90 

nextfreeentry 1= nextfreeentry ♦ i; 8OO64195 

ARRSUBSCRIPTRANGEcNEXTSUBS^FIRSTRANGE] ja STOPPERSUBTAB; 80064200 

END 80064205 

ELSE 80064210 

BEGIN 80064215 

passsubrange la firstrange; 8OO64220 

PREVPASS l« STOPpERSUBTAB; NEXTFREEENTRYI«NEXTFREEENTRY+1J80064225 

WHILE(SUBDIFF i ARRSUBSCRlpTRANGECH ISUBS, PASSSUBRANGE 3 80064230 

-ARRsUBSCRlPTRANGEtLOWSUBS»PASSSUBRANGE]) AND 80064235 

(aRRSUBSCRIPtRANGECNEXTSUbS#PaSSSUBRaNGE3 ^ 80064240 

STOPPERSUBTAB) DO 80064245 

BEGIN 80064250 

PREVpASS ;« PASSSUBRANGE; 80064255 

PAsSSUBRAnGE js» ARRSUBsCRIPTRANGECnEXTSUBS* 8006426 

PASSSUBRANGE]; 80064265 

end; 8006427Q 

IF PrEVPASS a STrPPERSUbTAB THeN 80064275 

BEGIN 80064280 

IF SUbDIFF ^ aRRSUBScRIPTRaNGECHISUbS* 80064285 

PASSSUBRANGE] • 80064290 

ARRSUB SCRIPT RANGE CLOW SUBS* 80064295 

PASSSUBRANGE] THEN 80064300 

BEGIN 80064305 

ARRSUBSCRIPTRAnGECnEXTSUBS*PASSSUBRAnGE] J» 80064310 

NEXTFREEENTRY - i; 80064315 

ARRSUBSCRiPTRaNGeCNEXTSUbS^NeXTFREEENTRY'I] is 80064320 

STOPPERSUBTAB; 80064325 

END 80064330 

ELSE 80064335 

BEGIN 80064340 

ARRSUBSCRIPTRAnGECnEXTSUBS*NEXTFREEEnTRY-1] is 80064345 

firstrange; 80064350 

FIrSTraNGe »- NEXTFREEENTrY-1; 80064355 

END 80064360 

END 80064365 

ELSE 80064370 

BEGIN 80064375 

IF SUBDIFF 2 aRRSUBSCRIrTRAnGE tHI SUBS, PaSSSUBRAnGE ] • 80064380 

ARRSUBsCRIPTRANGECLOWSUBS' PASSSUBRANGE] 80064 385 

THEN 80064390 

BEGIN 80064395 

ARRSUbScRIPTRaNGECNEXTSUbS#PaSSSUbRaNGE] I* 80064400 

NEXTFREEENTRY - i; 80064405 

ARRSUBSCRIPTRANGECNEXTSUBS, NEXTfReEENTRY-1] I« 80064410 

STOPPERSUBTAB; 80064415 

END 80064420 

ELSE 80064425 

BEGIN 80064430 

ARRSUBSCRIPTRANGECNEXTSUBS, PREVPASS3 l» 80064435 

NEXTFREEENTRY -i; 80064440 



w. 



ARRSUBSCRIPTRANGE[NEXTSUBS*NEXTFREEENTRY-1] Js 80064445 

passsubrange; 8OO64450 

END 80064455 

END 80064460 

ENO;tYPJ=IF tI.FORM m arrays then TltARRlYPE ELSE REALTYPE; 80064465 

Tl Js TYPETABlCTYPi; 80064470 

END UNTIL Tl, STRUCT » ; 80064475 

IF NOT PaRAM then 80064480 

BEGIN 80064485 

GEN{-]a"#2*6); 8006449Q 

GENID(''H«,LEVELl000 + NAM>5)i 80064495 

GENC['«M#7); 80064500 

passsubrange»« firstranGe; firSTdim :« True; 8OO64505 

WHILE passsubrange ^ STOPPERSUBT AB DO 8o064510 

BEGIN 80064515 

IF FIRSTDIM THEN FIRSTDIM Is FALSE ELSE GEN( "*"# 1*7 ) / 80064520 
GENID('»V''*CLeVeL1000 + NAM)xcif PASSSUBRANqe>9 then 100 ELSE 8006453 

10)+PASSSU8rANGE*1,IF PASSSUBRANGE>9 then 7 ELSE 6); 80064535 

PASSSUBRANGE }s ARRSUBSCRIPTRANGEC NEXTSUBS*PASSSUBRANGE ] ; 8006454® 

end; 80064545 

GENC"]#;''»3.5); 80064550 

END* 80064555 

PASSSUBRANGE := FIRSTRANGE/ 80064560 

FlRSToIM «« TRUE^ gEN("aRRaY"'6*3); GENIDCH'^LeVeL 1000 + NaM*5 ) ; 80064565 

6ENC"[''*1,7); 80064570 

WHiLE passsubrange X STOPPERSUBTAB DO 80064575 

BEGIN 80064580 

IF MAXPERMTAB LEQ MAXTOTAlSUBsCRS ANO PARAM THEN 80064585 

BEGIN 80064590 

ARRSUBPERMTABCARRnAM, MAXPERMTAB] |s 80064595 

IF FIRSTDIM THEN NAM ELSE * 1 ; 80064600 

ARRSUBPERMtABCPERmSUB#MAXPERMtAB] I* PASSSUBRANGE; 80064605 

MAxPeRMTAB Ja MAXPERMTAB + i; 80064610 

END 80064615 

ELSE 80064620 

BEGIN 80064625 

IF MAXPERMTAB > MAXTOTALSUBSCRS THEN ERROR(O); 80064630 

end; 80064640 

IF FIRSTDIM THEN FiRsTDIM := FALSE ELSE GEN( «*♦•# 1* 7 ) ; 80064645 

GENINTCaRCSUbScRIPTRaNQECLOWSUBS^PaSSSUBRANGE])^ 80064650 

IF NOT PARAM THEN 80064655 

BEGIN 80064660 

GENC'»l"#l*7); 80064665 

GENlNT(ARRSUBSCRIPTRANGEtHlSUBS*PASSSUBRANGE]); 80064670 

end; 80064675 

PASSSUBRANGE l» ARRSUBSCRIPTRANGE CNEXTSUBS#PASSSUBRANGE 3 ; 80064680 

end; 80064685 

GEN(»»T'M*7); 80064950 

80421000 

IF CURLEVEL > 1 THEN 80421010 

BEGIN 80421020 

INTEGER NAW0FTHING#0IFF; 80421030 

BOOLEAN FIRSTTIME; 80^21040 

GENCBEGIN'SdOj; 80421050 

IF MAXPERMTAB > THfN 80421060 

BEGIN 80421070 

PASSPERMTAB «= O; 80421080 



DO 80421090 

BEGIN 80421100 

REMEMBERPOSN i* PASSPERMTAB; 80*21110 

GEN("0EFINE**«7»2); 80421120 

NAMOFTHING «s ARRSUBPERMJAB [ ARRNAM^PASSPERMJAB] ; 80421130 

GENlDCV^flOOOXcURLEVEU+NAMOFTHING^S); 80421140 

GEN{"['S1#7); 80421150 

FIRSTTIME »=« TRUE/ 80421160 

DO 80421170 

BEGIN 80421180 

IF FIrSTTiME THEN FIrSTTIMe la FALSE ELSE GENC "#"# 180421 190 

#7);80*21200 

DIFF «= PaSSPeRMTa8-REMEMBERP0SN+1; 80421210 

GENI0C"V"*C1000xCuRLEvEL+NAM0FtHING)x(IF 0IFF>9 then 100 ELSE 80421220 

10)+DlFF'fTF DIFF > 9 THEN 7 ELSE 6))j 80421230 

PASSPErmTaB J« PASSPERMTAB ♦ 1} END 80421270 

UNTIL PASSPERMTAB * MAXPERMTA8 OR 80421280 

ARRSUBPERMTABCARRNAm^PASSPERmTAB] X -i; 80421290 

GEN("]'M,7); 80421300 

GEN(»'s'M,7); 80421310 

GEnID("H«,1000xCURLEVEL*NAMOFtHING,5); 80421320 

GENCt''M*7); 80421340 

PASSPERMTAB «= REMEMBERPOSN; FIRSTTIME J= TRUE; 80421350 

DO 80421360 

BEGIN 80421370 
IF FIRSTTIME THEN FiRSTTlME »= FALSE ELSE GENC"*"* 80421380 

1»7);80421390 

DIFF ja ARrSUBPERMTABCPERMSUB,PASSPERMTAB3+1; 80421400 

6ENID("V''#(1000XCURLEVEL + NAMOFTHING)X(IF DIFF>9 THEN80421410 

100 FLSE 10)+DIFF,(IF DIFF>9 THEN 7 ELSE 6)); 80421420 

PASSPERMTAB «« PASSPERMTAB +i; 80421439 

END 80421440 

UNTIL PASSPERMTAB s MAXPERMTAB OR 80421450 

ARR5UBPERMTABEaRRNAm*PASSPERmTAB] X -i; 80421460 

GENC"]#;«»3,S)j 8042147© 

END 80421480 

UNtIL PASsPERMTAr c MAXPERMtAB; 80421490 

MAXPeRMTAB «* 0/ 80421500 

END 80421510 

end; 80421520 

* 80608000 

BEGIN 80608010 

BEGIN 80608020 

INTEGER NAM#T1»SCrATCH; 8o608o30 

Nam «a PARAMTABCn.[9ll03; 80608040 

SCRATCH t« NAWETAb3[CuRLEvEL+1*NAM]; 80608050 

SCRATCH «» SCRATCH. type; 80608060 

Tl I. TYPETABICSCRATCHJ; 80608070 

IF Tl, STRUCT X AND Tl.FORM < FILES THEN 80608080 

GENlD("H'M000x(CURLEVEL + l) + NAM*5) 80608090 

ELSE 80608100 

GENidCVMOOOxCCURLEVEL + D+NaM^S); 80608110 

end; 80608120 

maxpermtab »» o; 900/0100 

insideparens Is false; 90070200 

»# patch 519 for pascal xvl.o, contains i cards, increase runtime stack, 

$i 



END,"; 



•♦ XALGOL STACK « 20^8^ STACK = 1024; 
$# PATCH 600 FOR PaSC AL ,XV 1 ,0 . CONTAINS 22 
»l PATCHES RECEIVED FROM D.LANGMYHR AnD 
$1 DAVID A COOPER. FEBRUARY 1978. 
$1 

IFCFl NEQ SET OR RT NEQ FMPTYSET) X 
AND % 

(F2 NEQ SET OR lT NEQ 
IFCFl NEQ POINTERS OR 
AND X 
(F2 NfQ POINTERS OR LT NEQ NILTYPe) THEN X 
BEGIN ERR0R(63); % 



CARDS, 
TRANSPOSED 



FMPTYSET) THEN % 
rT NEQ NILTYPE) % 



% 

UAGS 

FROM 



DEC77 PATCHES, 
COSY FORMAT BY 



90120500 



$ 
$ 



$ 
S 



GEN("PREAD(''»6*2); writeexpr; genc "» "# l# 7 ); % 



GENID("F",FILEID,5); GEnC"#'M*7); X 
IF F*NUMERIC THEN % 
BEGIN X 

GeN("»''M*7); GENlNT(TYPETAB2tCURTYPE3)^ X 
GEN(",'M,7); GENINTCTYPETABacCURTYPE]); X 
END ELSE GEN('%0,0''*4*4); X 
SET VOIOT 
POP VOIDT 



IF NaMTAB.IDCLaSSsFUNC THEN GpN (•♦FUNCTN",7* 2 ) X 

ELSE GFNC"PR0CEDU"»8*1); X 
IF FOUND AND ( THI SiD. I0CLaSS=PR0c OR THISI D . I DCLaSSsFUNC ) THEN 
$#PATCH 601 FOR PASCALtXVl.O.CoNTAlNS 1«7 CARDS, ExTENOE SET MODS, 
Si PATCHES RECEIVED FROM D.LANQMYhR AND TRANSPOSED FROM COSY FORMAT 
DAVID A COOPER. FEBRUARY I9r8. 

THIS PATCH MODIFIES THE SET HANDLING ROUTINES TO ALLOW 
ELEMENTS. 
NB. THE RUN TIME SYSTEM MUST BE CHANGED ACCORDINGLY,,,, 



$t 
St 

St 

St 

St 

X 

X 

PROCEDURE SPLITtSPLITlNX, WIDTH); 

VALUE SPLITINX* WIDTH; X 

INTEGER SPlITINX* WIDTH ; X 

BEGIN X 

INTEGER i; X 



IF NUMSYMS+WIDTH LEQ MaXSYmS THEN X 

BEGIN X 

FOR II=NUMSYMS STEP -I UNTjL SPLlTiNX DO X 
SYMTABtl+WIDTH] t« SYMTABEHi X 
FOR It»i STEP 1 UNTIL WIDTH DO X 

SYMTABCsPLiTiNX+i-n t. ♦♦aoooooo"; X 

NUMSYMS t» NUMSYMS + WiDTH; X 
END X 
ELSE 
BEGIN X 

ERR0RC63); X 

NUMSYMS l» i; X 

end; X 

OF split; X 



BY 



SETS OF 0..93 



20813000 

20813050 
20813100 
20814000 
20814050 
20814100 
40023000 
50059000 
50079000 
50080000 
50081000 
50082000 
50086010 
50086050 
50086106 
50086150 
50086200 
50088000 
50093000 
80037000 
80038000 
80548000 



END 
X 



40052050 
40052055 
40052100 
40052150 
40052200 
40052250 
40052300 
40052350 
40052400 
40052450 
40052506 
40052550 
40052600 
40052650 
40052708 
40052750 
40052800 
40052830 
40052860 
40052898 
40052900 
40052950 
40052960 



m 

% 



40052965 

FND; X 40188005 

IF TYPETABltCURTYPEj.rORMsSET THEN % *** SET VARIABLES 40188010 

BEGIN X *** --- --------- 40188025 

INTEGER THISSYML' H X 40188050 

X 40188075 

SPLIT(STArTSYM,1); SYMTAr C STArTSYM 3 t* "SLOaDC; X 40188100 

IF SIMPLEVAR THEN X 40188125 

BEGIN X 40188150 

PUTSyMC*"); X 40188175 

PUTID("W''*1000XTHISLEVFL + THISINDEX#5); X 40188200 

END X 40188225 

ELSE X 40188250 

IF INBRACKET AND NOT INrECoRD THEN X 40188275 

BEGIN X 40188300 

PUTSYMc»»#''); THISSYMl »• NUMSYMS; X 40188325 

putconst(O); putsymc "); putsymc"*"); * 40I88350 

FOR II»STARTSYM+1 STEP 1 UNTIL ThiSSYML DO X 40188375 

PUTTEXT(SYMTABCn); 40188400 

PUTTEXTC l3 "); X 40188425 

END X 40188450 

ELSE X 40188475 

BEGIN X 40188500 

THISSYMl «» NUMSYMS; X 40188525 

IF INbRACKET then PUTSyMC"]"); X 40188550 

FOR H=l STEP 1 UNTIL nUMPOINTERS DO X 40188575 

BEGIN X 4018860© 

PUTTEXT("-1 )0IV''); PUTTexTCm 1022»''); X 40188625 

PUTTEXTC T MOD"); PUTTEXTC" 10223")^ X 40188659 

ENDJ X 40188675 

PUTSYM("#"); X 40188700 

FOR II=STaRTSYM+1 step 1 UNTIL THISSYML DO % 40188725 

PUTTEXT(SYMTABCn); X 40188775 

PUTTEXTC" +1 "); X 40188808 

IF INBRACKET THEN PUTSyM("3"); X 40188825 

FOR IJ=1 STEP 1 UNTIL NUMPOINTERS DO X 40188850 

BEGIN X 40188875 

PUTTEXTC"-nOIV"); PUTTEXTC" 1022*")J X 40188900 

PUTTEXTC" T MOO"); PUTTEXTC" 10223"); X 40188915 

end; X 40188930 

NUMPOINTERS Is O; X 40188945 

end; 40188960 

PUTSYM(","); PUTCONST(CARDCNT); PUTSYM(")"); X 40188975 

end of set variables; X 40188990 

$ 40198006 

IF TYpETABlCTHlSlDfTYpE3,F0RM»SET THEN 40274200 

BEGIN X 40274220 

GENC"*"*1#7)| X 40274240 

GEMDC"W"»1000xtHISLEVEL*tHIsINDEx#5); X 40274260 

end; X 40274280 

BOOLEAN FIRST, SPLlTTED; X 40296000 

PUTTEXTC"SETBSC"); PuTTEXTC" 3*2'")^ PUTCONSTC CARDCNT ) ; X 40529000 

PUTSYMC")"); X 40529300 

CURTYPE I* EMPTYSET; CURMODE »■ number; X 40529600 

STARTSYM la NUMSYMS ♦ i; X 40533500 

PUTTEXTC" SETBC"); X 40536000 

PUTSYMC"*"); SYMTABtSTARTSYM] Is "SeTBSC"; X 40544000 



s 
$ 



IF SPLITTED THEN PUTsYM( ")♦• ) ; X 405bl500 

IF CURSY«CQMMA then % 40552000 

BEGIN X 40552200 

SPLIT(STARTSVM#1); SYMTABCSTARTSYM 3 J= "SUNIOCi % 40552400 

PUTSYM("^")i % 40552600 

SPLITTED la TRUE; % 40552800 

end; % 40552850 

NEWTYPE; T1 «= set; TI.SIzE S» 2; Ti, struct I« 0; X 40558000 

CURMDDE «= number; X 40561000 

IF CURTYPE*8CDLTYPE THen X 40587000 

IF CURSY NEQ ANDSY THEn ERR0R(64); 40593000 

END ELSE X 40593100 

IF F=SET THEN X 40593200 

BEGIN X 40593300 

IF CURSY-ASTERISK THEN X 40593400 

BEGIN X 40593500 

SPLITCSTARTSYMM)^ SYMTABCSTARTSYM] ts "SlNTSC; X 40593600 

PUTSYMC",''); X 40593700 

END ELSE ERR0RC64); X 40593800 

MODE t« number; X 40593900 

IF FsSET THEN PUTSYM( " )" 5 ; X 40608500 

SPLIT(STARTSYMM); X 40650000 

IF CURSYaPLUS THEN SYMtAB [ST ARTSYM ] i» "SUNiOC ELSE * 40651000 

IF CURSy=MINUS then SymTABCSTaRTSyM] :s "SDIFFC" else X 40652000 

ERR0R(64); X 40653000 

PUTSYmC*"); mode »= number; X 40654000 

40655000 

IF F"SeT then PUTSYMC)"); X 40668500 

40688000 

IF CURSY'EQLSY THEN SYmT ABCST aRTSYM] |a "SEQUaC" X 40713000 

ELSE X 40713150 

IF CURSY«NEQSY then X 40713300 

BEGIN X 40714000 

SPLIT(STARTSYMm*' SYMTABCSTARTSYM3 js " NOT "; X 407l4l50 

SYMTABCSTARTSYM+n 1= "SEqUAC"; X 40714300 

IF TYPETABHLEFTTYI»ElfFORM»SET THEN X 6OO8OIOO 

BEGIN X 60080200 

SYMTABCn »« "SSTORC; NuMSyMS Is NyMSYMS - BJ X 60080300 

expression; x 60O80400 

PUTSYM(«)«3; CHECKTYPES(leFTTYPE*CURTYPE); X 60080500 

writeexpr; x 6ooeo60o 

END else 60080700 

if TYPETAB2CTX] LSS o OR TYPETAB3CTX] GtR 93 THEN ERR0R(51); 7o2l0000 

TI.SIZE «« TSIZe is 8; TYPETABHTYPEINDEX] 1= Ti; X 70214000 

IF Tl.FORMsSET THEN X 80046200 

BEGIN X 80046400 

GENC",-,1,7); GEnIDCW^LEVELIOOO + NAM^S); X 80046600 

end; X 80046800 

IF T1,F0RM=SET THEN X 80064700 

BEGIN X 80064750 

GEN('%0"/2>6); X 80064800 

IF NOT PARAM THEN GEN( " » 1 "#2*6 ); X 80064850 

end; X 80064900 

BEGIN X 80608105 

IF Tl.FORMsSET THEN X 80608111 

BEGIN X 80608113 

GENC'%"M#7); X 80608115 



m 



GEMDCWMOoOxtCURLEVEL + n+NAM^S); X 

end; 

END' % 

IF TyPETAB1CNAMETaB3[CURlEVEL*1*PARAMTABCI3,PARAMNAME].TyPE 

].FORm=SET 
THEN BEGIN % 

GENC, "M#7); % 

GENlDCWH^lOOOxCCURLEVEU + D + PARAMTABtn.pARAMNAME 

#5); X 

end; 

4#PAtCH 602 FOR PASCAL XVl./ CqNtAInS 5 CARDS. CORRECj REPRESENTATION OF 

»« RECEIVED FROM OAq LANqhYMR ON 6/07/78. 

t« DAVID A COOPER , HERIOT-WATt UNIVERSITY... JULY 1978. 

NILTYPE «« 6; %*** TYPE OF "NIL" *** 

TlfFORM »• pointers; TYPETAb1C63 »= Ti; 

EMPtYSET |8 7i % 

Tl.FORM t* SET; TYPETABlt73 J« TU 

numtypes i« 7; x 

$# PATcH 603 FOR PASqAL .XVI .0 . cONTAINS 6 cA^DS. CORRECTION TO PATcH 601 
$t DAVID A COOPER « S AnDErSON» HeRIOT-WATT UnIVERSHy* UST AUGUST 
$t 

INTEGER STARTSYN»FIRSTSYm.M00E*TYPE1*F; 

PUTDUMMY; STARTSYM ;= FIRSTSYM J» NUMsYMS; 

SPLIT(FIRSTSYMM); 

IF CURSY ' PLUS THEN SYMTAB [F IRSTSYM 3 j* "SUNIOC ELSE 
IF CURSY ■ MINUS THEN SYMT ABtFlRSTSYM 3 Js "SDIFF(" ELSE 
ERR0R(64); 
PATCH 61S FOR PASCAL .XV 1 ,0, CONTAINS 7 CARDS. 



80608117 

80608118 
80608119 
80627200 
80627205 
80627400 

80627600 
80627800 
80627801 
80627850 
"NIL". 



20363000 
20364000 

20364500 
20365000 
20365500 



$« 

$ 

$ 

$ 

$ 



$« 
S 

s 
s 
s 
$ 
s 
$ 
$ 
s 

s 
$ 
$ 
s 
s 
s 

s 
$ 
s 
s 



IF insidepaREns and simplevaR and t 

TYPETAB1CCURTYPE3.F0RM < FILES 
PATCH 70e FOR PASCAL. xVI.O HAS 179 

TO Improve Run tIwe efficiency by re 

THE COMPILER HAD A HIGH OVERLAY I/O 
TO THE PROCESS TIME* AND OBSERVATION 
THRASHING IN 32K. THIS pATcH ATTEMp 
REARRANGING T^E SEGMENTATION OF THE 
SO aS to avoid PULLING CODE THaT WIL 
RELEASE CODE SEGmENtS AS SOON AS ExE 
CROSS REFERENCE ROUTINES WERE ALL CO 
SEGMENT WHICH INCLUDED VARIOUS UTIlI 
A FEATURE WHICH CONTRIBUTED siGNlFiC 
NUMBER OF "DEFInES" WHICH RESULTED I 
GENERATED IN-LINE* SOMETIMES MANY Tl 
WERE REaBILY CHANGED INTO PROCEDURES 
DEFINES FOR CODE Is THAT THF "BEN0« 

Blank lines repeating thf same seQue 

DEFINES.) 
NILS A OTTE# UNIVERSITY oF NATAL* 



YPETAB1CCURTYPE3. STRUCT > aND 
THEN SYMTABESTARTSYM3.C35I63 »« 

"H"; 

CARDS. REDUCE THRASHING By COO 
ARRANGING tHE tHE COMPILERS CODE, 
TIME AND HIGH ELAPSED TIME IN REl 

OF THE B5700 CONFIRMED THAT IT W 
TS TO REDUCE THE COrE REQUIREMENT 
CODE. LARGE SEGMENTS ARE ELIMINA 
L NOT BE EXECUTED INTO CORE AND T 
CuTlON HAS PASSED. FOR EXAMPLE* 
NTAiNED IN ThE LARGE OUTER BLOCK 

ty routines. 

antly to large segments was the h 
n sizeable sections of code being 
mes in one segment. these "defln 
. (a side effect of virtually eli 
option no longer results in numer 
nce numBeR for every "end" in the 
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40618000 
40621000 
40650000 
40651000 
40652000 
40653000 

40105100 
40105200 
40105300 
40105400 
40198500 
40198600 
40198700 
E change 
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AS 

BY 
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THE 
CODE 

IQH 

ES" 

MINATING 
OUS 
NESTED 



Durban. 



AUG - NOV 1977. 



10167000 
10168000 
10169000 



printerrors; 
heading; 



VALUE 
REAL 

Integer 

forward; 
procedure 
Procedure 

BEGIN 

END OF heading; 

procedure Printline; 

BEGIN 

END OF PRINTLINE^ 

PROCEDURE newcard; 

BEGIN 

REPLACE XLInEPNT 

Replace linePnt 
end of newcard; 
Define geN(geni»geN2*gen3) « 

6ENId(GENIDI,6EnID2,GENID3)= 



NAyEl»NAME2fTABLE#DECLi 

NAME1*NAME2; 

table; BOOLEAN DECL/ 



forward^ 

X*** Prints a heading at start 

DfFINE NEW5EGMENT « HERE «; 



OF NEW PAGE. 



BY 
BY 



X*** PRINTS A PASCAL SOURCE CODE LINE 
DEFINE NEWSEGMENT = HERE #; 

X*** READS A NEW PASCAL SOURCE CODE CARD 
DfFInE RESULT * ICARDt*]# ETC #; 

« " FOR 16 words; 

CaRdPNt for 10 WORDS* XLINEPNT FOR 6 WORDS; 



GfNI(TRU£#GEN1*GeN3'GEN2) *f 
GenICFALSE#GENID1#GEnId2,GENID3) 



#; 



PROCEDURE GENl(GENT» TXT# 
VALUE GENT* TXT* NUM* N; 
BOOLEAN gent; ALPHA TXT; 
BEGIN 

IF GENT THEN 

TEXTCQ] «« txt; 

END 
ELSE 

CH[0] «a txt; 

END END GENi; 
PROCEDURE GENINTC N ); 

VALUE n; integer n; 

BEGIN 

integer NABS* NSIZE; 

END OF GENINT; 

PROCEDURE WRITEALGfiL* 
DEFINE NEWSEGMENT 
DEFINE NEWSEGMENT 
DEFINE NEWSEGMENT 
DEFINE NEWSEGMENT 

ALPHA THISIi, CURNAME 

PROCEDURE SEARCHtAB( 

VALUE tab; Integer t 

END OF SEARCHTABi 
PROCEDURE search; 

BEGIN 

END OF SEARCH; 

PROCEDURE NEWNAME( N 

VALUE NAMEl* NAME2* T 

ALPHA NAMEl, NAME2; 

END OF NEWNAME; 

DEFINE NEWSEGMENT 
DEFINE NEWSEGMENT 
DEFINE NEWSEGMENT 

PROCEDURE CHECKTYPES 

VALUE LEFTTYPe* RIGHT 

BEGIN 



NUM» N )l 

INTEGER NUM* N; 
DFFINE START 



NUM #* NDIG » N #; 



%*** GENERATE A TEXT "TxT"* CONSISTING OF 



X*** GENERATE AN ALGOL IDENTIFIER. 



DEFINE Result « algol code #; 



%***, WRITES A completed AlGOL CARD TO 
= HERE *; 
* HERE *i 
« HERE *; 

■ heRe *i 

i, CURNAMF2; X USED IN SCANNER 

TAB ); X*** SEARCH NAME TABlE "TAB" FOR THE 
AB; X*** IDENTIFIER jUST READ, 

X*** SEARCH ALL TABLES CURRENTLY IN USE. 
DEFINE RESULT * THISID #; 

AMEl*NAME?, TAB ); 

ab; 

INTEGER Tab; 

» HERE #; 
a HERE #; 

■ HERE #; 

( lefttypf* righttype ); 

type; integer lefttype* righttype; 



20016000 

20017000 
20018000 
20019000 
20020000 
20026000 
20027000 
20033000 
20036000 
20037000 
20047000 
20050000 
20031000 
20056000 
20057000 
20061000 
20063100 
20063200 
20063300 
20063400 
20063500 
20063600 
20063700 
20063800 
20064000 
20067000 
20070000 
200/3000 
20076000 
20079000 
20082000 
20083000 
20084000 
20085000 
20097000 
20145000 
20146100 
20168100 
20180100 
201V3100 
20205000 
20208000 
20208100 
20221000 
20223000 
20224000 
20233000 
20236000 
20236100 
20236200 
20250000 
20515100 
20533100 
20546100 
20802000 
20803000 
20804000 



H 



REAL TH* TT2; INTEGER Fi, Vzt LT» RT; 20805000 

END OF CHECKTYPES; 20838000 

PROCEDURE FILEPARAM( DEFAULTFluE >' %*** CHECKS jHE FIRST PARAMETER 208'»^000 

VALUE DEFAULTFILE; INTEGER OEF aULTFILe;* *** TO SEE IF IT IS A FILE. 208^4100 

BEGIN DEFINE RESULTS » FILENAME & LPARFOUND #; 20805000 

END OF FILePARAM; 20869000 

REAL CURVAl; InTEGER CURLEnGTh; 20872000 

20873000 

PROCEDURE CONSTANT? CVAL' CTYpE ); 20874000 

REAL CVAL; integer CTYPE; 20875000 

BEGIN 20876000 

INTEGER TFORM; BOOLEAN Sl6NED» NEGATIVE; 20876100 

END OF constant; 20921000 

» 30082000 

ALPHA C* CX; %( CURNAMEt 4 CURNAME2 MOVED TO 20205000 ) 30063000 

INTEGER LASTCHARPOS; %( CURVAu* CURLENGTH MOVED TO 20872000 ) 30084000 

PROCEDURE INSYMBOL' X*** IDENTIFIES THE NEXT SYMBOL ****** 300870Q0 

BEGIN 30087100 

30087200 

PROCEDURE NEXTCHaR; X*** GETS THE NEXT CHARACTER. 30088000 

END OF NEXTCHAR; 30093000 

J SET VOIOT 30095000 

$ POP VOIDT 30098000 

DEFINE Tl « EXP Hi % USED AT 30178000 30099100 

BEGIN DEFINE NEWSEGMEnT « HERE »'» 30261100 

END NEWSEGMENT; 30282200 

40016000 
40017000 



s 
$ 

INTEGER EXPRLEVEL; 40018666 

DEFINE PUTSYM(S) » PyTTEXTt ( S )&1 [ 41 « 5 »6 ] ) #; 40029000 

* SET VOIDT 40029900 

* POP VOIOT 40033000 
DEFINE PUTOUMMY « PUTTEXTC" aOOoOOO" ) «l 40041000 

* SET VOIOT 40042000 

* POP VOIDT 40044000 
PROCEDURE WRITEEXPR; X*** WRITE GENERATED ALGOL EXPRESSION 40053000 

REAL SXl INTEGER Tl* Tx; 40054100 

END OF WRITEEXPR; 40066000 

PROCEDURE CHECkEXPRC LLIM, ULIM )'* %*** WRITE CODE TO CHECK VALUE 40069000 

VALUE LLIM, ULIM; INTEGER LLIM* ULlMj 40069100 

BEGIN DEFINE CHECK » VALUE »} 40070000 

END OF CHECKExPR; 40077000 

INTEGER Tl# T5; X USED ONCE EACH 40086100 

TI|«T.FIRsTWITHSYM; t5|.T.LASTWITHSYM; 40094000 

FOR TH«T1 STEP I UNTIL t5 qO PUTTEXT (W iTHT abC T 1 ] ) ; 40095000 

DEFINE Tl a T #; % gSEO aT 40558000 40298000 

* SET VOIDT 40299000 

* POP VOIDT 40309000 

- » ^ . 40331000 
PROCEDURE parameter; X*** CHECK THAT THE FUNCTION HAS 1 pARAM. 40332000 

BEGIN 40333000 

INSYMBOL; 40334000 

IF CURSYsLPAR 40335000 

THEN BEGIN 40336000 

PUTSyMCC); INSYMBOL; expression; 40337000 

IF TYPETAB1[CURTyPE].F0RM=NUMERIC then CURTYPEisINTTYPE; 40338000 

IF CURSYXrPAR THfN begin ERR0R(3); SKIPCRPAR) end; 40339000 



e 



$ 
$ 



$ 
$ 



PUTSYM(")»'); IF CURSY = RPAR THEN INSYMBOL/ 
END ELSE ERRORO); % GR ERR0RC58) 

END OF parameter; 



BEGIN LABEL LABFOUNO; 

THISID.IDClASSsCONSt AND BqOLEANC THISID. FORMAL ) 
THISlD.lDCLASSsFUNC 
THEN ASSlGNf^ENT ELSE 



VALUE 
INTEGER 



rectab^firstaddr; 
rectab*firstaodr*lastaddr; 



OR 



set 

POP 



SET 
POP 



VOIDT 
VOIDT 



VOIDT 
VOIDT 



TYPEDECLC 



TTYPE, TSIZE )i 
TTYPE# TSiZE; 



PROCEDURE 

Integer 

BEGIN 

INTEGER RECINX^ ARRSTRUCT* 
BOOLEAN FIRST, PACKED; 



X***** TYPE DECLARATION ***** 
X********************-******** 



TX# SX, T» n; real T1* T2# T3; 



END typerr; 
Procedure subrange; 
Begin 

REAL VALXl, VALX2, 
integer TYPEX1# TYPEX2; 



Ti; 



X*** subrange declaration *** 

X**************************** 



constanT(valxi#typexi); 

if TYPETABiI:TYPEXi1.F0RM>CHAR then ERROR(ll); 
if CURSYXDOUBLEDOT then ERrOR(53); 

insymbol; 

C0NSTANT(VALX2#TYPEX2); 

IF TYPEX1>0 and TYPEX2>0 THEN 

IF TYPEXUTYPEX2 THEN ERrOR(U) EUSe 

IF VALX1>VALX2 THEN ERrOR{54); 
IF (TllsTYPETABltTYPEXn.FoRM) « SYMBOLIC THEN T1»=SUBTYPE; 
NEWTYPe; TTYPEt»TYPEINDEX; 

Tl.SlZEl*TSlZEl»i; Tl.STRuCTiao; Tl . MAINTYPE I»TYPEX1 ; 
TYPET ABH TYPE INDEX] I »Ti; 

TYPETAB2[TYPEINDEX]|«VALX1; TYPETAB3 C tYPEINOEXJ |»VALX2; 
END OF subrange; 

DEFINE DEC * POINTER #; 
DEFINE DEC » ARRAY #; 
DEFINE DEC » FILE #; 
DEFINE DEC «» SET »i 
DEFINE DEC ■ RECORD «t 



LABEL CASEPART# EXIT; 

BEGIN 

LABEL CASETYPEiD; 

end; 

Q£i^(H«/if,2,6); 



DEFINE DEC * VARIANT #; 



DEFINE DEC • FILE #; 

DEFINE DEC • LABEL #; 
DEFINE DEC = CONST #; 



40340000 
40341000 
40342000 
40350000 
60396000 
60399000 
60423000 

60423200 
60424000 
70013000 
70016000 
70018000 
70019000 
70022000 
70034000 
70035000 
70036000 
70037000 
70038000 
70039000 
70040000 
70041000 
70042000 
70048000 
70050000 
70051000 
70052000 
70053000 
70054000 
70055000 
70056000 
70057000 
70058000 
70059000 
70060000 
70061000 
70062000 
70063000 
70064000 
70065000 
70066000 
70067000 
70068000 
70069000 
70117100 
70143100 
70160100 
70200100 

70220100 
70247000 
70285100 
70285200 
70349100 
80066100 
80107000 
80424100 
80447100 



DEFINE DEC = TYPE »} 80475100 

DEFINE DEC « VAR #; 80496100 

IF CURSYsFUNCSY OR CURSy.PROCSY % 80540900 

THEN BEGIN DEFINE DEC » CODE Ki 80540910 

End of segment for procedure declarations; 80658100 

PATCH 7ol FOR PASCAL»XVlfO CONTAINS 14 CARDS. REDUCE THRASHING BY ARRAY CUTS 

TO IMPROVE RUN TIME EFFlClENC^ BY REDUCING A«RaY SIZeS. THE MOST SIGNIFICANT 

CONTRIBUTION TO jHE COMPILERS T^^R^sHlNG BEHAVlOuR WAs THE EXCESSIVELY LARGE 

DATA ARRAYS, THIS PATCH SUCCEEDS IN qRASTICALLY REDUCING THE CORE ReQUIReMeNT 

OF THE COMPILER By MAKING MnST QF THE LARGE ARRAyS MUCH SmAlLER WITHqUT 

Imposing unreasonable restrictions, in particular* the three arrays* 

NAmETABI* NAmETABS* NAMETAB3 WERE EACH C0I50* 0110223' AND HAVE BEEN REDUCED 
to [0»30* 0J3073. THESE REDUCTIONS HAVE NOT PREVENTED THE COMPILATION OF 

A LARGE Pascal prCgram of arout 4000 lines, namely the P4 pascal compiler 

FROM ZURICH. IN FACT* PRIOR TO THE CHANGES INTRODUCED BY PATCHES 700 & 701* 

THE P4 Pascal compiler took 60 minutes eLapseo time to compile* which was 

REDUCED To 9 MINuTES BY THESE PATCHES, wHIlE THE PROCESS TIME HAS REMAINED 
CONSTANT AT 9 MINUTES, 
**** NOTE THAT IF "mAXNAMES" IS CHANGED THEN THERE ARE 7 DEFINES IN THE FILE 

pascal/prelude that must also be changed, 
"maxnames** is chqsen as a Prime nUmber as it is used as a modulus for a hash 
Function, the pascal identifiers are translated to algol names using level 
AND Hash index, hence changing "Maxnames" changes the ALGOL Names for 

"INPUT'** "OUTPUT'S I. "PRT25", 
NILS A OTTe* university OF NATAL* DURBAN, AUG - NOV 1977. 

DEFINE MAXTABLES « 30 ** XMAX NUMBER OF LEVELS IN IDENTIFIER TABLE , 10042000 

MAXNAMES =307 »* XmAX NAMES IN EACH ROW OF IDENTIFIER TABlE , 10043000 

% ONLY USED IN WITH STATEMENT TO TEST 10044001 

MaXCaSES «64 «, %MAX LABELS IN A C aSE-ST aTEMENT , 10045000 

MAXLABS 350 *, XmAX NUMBER OF LABELS IN PROGRAM, 10046000 

MaXPaRaMS «200 #* XMaX NUMBER Op PaRaMeTeRS IN WHOLE PROGRaM, 10047000 

MAxTYPES =250 #, XmAX NUMBER OF DIFFERENT TyPES, 10048000 

MAXCONSTS =100 #* XSiZE OF TABLE FOR CONSTANTS. 10049000 

MAXWITHSYMSa 70 ** XmAX NUMBER OF SYmBOlS USED BY W ITH-STATmS, 10051000 

MAXSYMS S200 #* XmAX NUMBER OF SYMBOLS IN ONE EXPRESSION. 10052000 

LISTLEnGTH =100 #* XmaX length of VAR & PARAM lists, 10053000 

MAXEXTFIlES«1o #* XMAX NUMBER OF EXTERNAL FILES. lo054ooo 

MaXFILES =10 ** XmaX number of files declared at one TIME. 10055000 

maxpntRs =10 #* XMAX Number of undeclared pointers (forwd),ioo56ooo 

$« patch 702 FOR pascal. XVI, CONTAINS 4 CARDS. BOOLEAN ARRAY "eRR" 120 TO 4 
$1 To EXTEND THE REDUCTIONS OF PATCH 701 TO THE BqOlEAN ARRAY "ERR** FOR NOTING 
»| THE SYNTAX ERRORS THAT HAVE OCCURRED, THIS PAtCH COMPRESSES THE ARRAY FROM 
$» 120 WORDS To 4 WORDS BY USImG 32 BITS In EACH WORD. 
$1 In addition* this patch inserts the error count on the left of the LINE 

SI which reports the syntax errors. 

»l NILS A OTTE, UNIVERSITY OF NATAL* DURBAN. AUG - NOV 1977. 
$t 

ARRAY ERRPtOJS]; X HOLDS 128 BITS X RECORDS ERROR MESSAGES USED. 10156000 
DEFINE ERRCERRll = BOOLEAN (O&eRRP CERR 1 . [61 2] HO «ERR I . [4« 5] « 1] ) *} 10156108 

ERRPCERRNUM,C6l2nJ=ERRPtERRNUM.C6«2]] & 1 CERRNUM, C4 J 5 ] »0 « U; 20182000 
REPLACE POlNTERCERRLlNEtO]5+4 BY NUMERRS FOR 4 DIGITS; 20194900 

*# PATCH 703 For PASCAL. XVI, CONTAINS 6 CARDS, REDUCE THRASHING BY SAVE CORE 
»l TO IMPROVE RUN'-TIME EFFICIENCY BY REDUCING NON-OvERLAYABLE AREAS, 

SI THIS Patch reduces the Save core Requirements by decreasing the file block 
SI sizes and also the number Of Buffers without unduly retarding the compilation 
Si speeD. the size Df the disk areas is Kept a multiple of the original block 



$1 SIZE WHERE RELEVA 
$t IN BLOCK SIZES OF 
$« NILS A OTTE^ U 
SI 

FILE CARD "SOURCE" ( 

FILE PASCALGOL DISk 

FILE XREFFitE DiSK S 

IF RECSI 

GENC^SA 

GENC^BO) 

S# PATCH 70« FOR PAS 

%i TO Reduce the com 

S« PASCRUN/DIsK Is 

$t THE PAScAL/PRELUd 

*« TRANSLATE THE PAS 

$1 FOR T^IS BY sETTI 

$1 EQUATING THE TAPE 

$1 Is NEGLIGIBLE* T 
$» COMPILE SYNTAX Fr 

$1 directly in the p 
$1 See patch 7ii. t 

$« NILS A OttE# U 
$1 



NT TO AVOIn INCOMPATIBILITY PROBLEMS. COMPARABLE REDUCTIONS 

THE OBJECT PROGRAM ARE ALSO MADE, 
MVERSITY OF NATAL* DURBAN, AUG - NOV 1977, 
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pileR 

RENAM 
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39); 

L C20I300 

t20»3000 

OR REcSIZ 

#3); 
#4); 

Vl,0 HAS 
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ED PasCA 
E INTO TH 
ROGRAm* 
E "TApE" 

To PASCA 
VANTAGE I 
TME FILE 

COMPILER 
EEDS PATC 

sity of N 



% PASCAL SOURCE CODE INPUT FILE 
] <1,10,30»SAVE 0); % ALGOL CODE FI 
] <1#3#30); X FOR CROSS REFERENCE 
EalO THEN GENINTOO) 



8 C 
AOS, 
L/PRE 
E GeN 
THIS 
OPTIO 
L/PRE 

s Eve 

pAScA 
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N GREAT 
L/PRELU 
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10035000 
LE10037000 
10137000 
80119000 
B0122000 
80123000 

pying file 
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H 705. 

AtAL* DURBAN: 



AUG • NOV 1977. 



ERRORS (15, 
ALIST (♦•$ 
MERGE (♦•$ 
"$ 

termmess c** 
wRItc(pascalgol*merg 

$ 

s 

SI 

s« 

SI 
SI 

Si 

SI 

s 



" ERRORS DETECTED ••,20C"#") /), 

SET LIST ")# 

SET TAPE RESET $" / 

RESET TAPE"* T73* "99000000" J* 

** COMPILATION TERMINATED."); 

E); X ALGOL MUST COMPILE PRELUDE 



"; ALGOL FI 

PATCH 705 FOR PAS 

THIS PATCH TIDIES 

COMPATIBLE ALGOL 

NILS A OTTE# U 



10188000 
10189000 
10190100 
10190200 
10192000 
90022000 
90023000 
90032000 
90119000 



FIRST 

SET VOIOT 
POP VDIDT 

LE TAPEa Pascal/prelude serial; algol file cards", 

CAL. XVI, CONTAINS 21 CARDS, GENERATE A BETTER ZIP 

UP THE CODE THAT GENERATES THE ZIP TO PASS CONTROL TO THE 
COMPILER. 
NIVERSITY OF NATAL* DURBAN, AUG - NOV 1977, 
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PROGNAME la IF C 

THEN 

ELSE 

ARRAY ZIPARRAYCO 

DEFINE PPROGNAME 

PLIBRARY 

PCPl) 



ZIPARRAYCPPROGNA 
ZIPARRAY[PLIBRAR 

ZIPARRAYCPUSER] J 
REPLACE POINTERC 
P(PPROGNAME 
" liCALGOL ", 
"; ALGOL FI 
P(PAL60LNAM 



90013000 

URLENGTh < 7 90042000 

" "icURNAMElC^lldxCURLENGTH-lldxCURLENGTH] 90042010 

CURNAME2.C5«6]&CURNAMElC4l«35J363; 90042020 

116]; 90092000 

a 13 «, PAlGOLNAME « 14 #* 90095000 

s 15 *» PUSER « 16 ** 90096000 

a pointer(:ziparraycpi])+i for 7 *; 90097000 

Set VOIdT 90098000 

POP VOIDT 90104000 

90109000 

MEIi-PRQGNAME; ZIPARRAYCPAi.GOLNAME]I«ALGOlNAME; 90112000 

Y]l» IF SAvEFACTQR>0 THEN "LIBRARY" ELSE 90113000 

IF SAvEFACTOr<0 then " SYNTAX" ELSE " & RUN "; 90114000 

suSER; 90115000 

ZIPaRRAYE*3) BY "CC COMPILE "* 90U6000 

), "/", P(puSER)* 90U7000 

P(PLIBRARy)* 90118000 

LE TAPEs PaSCAL/PRELUDE SERUl; ALGOL FILE CARDa"* 90119000 

E)* "/", P(PUSER), " serial; END."; 90120000 



B 



* set vqidt 90121000 

* „ ^ pop voidt 90128000 
** Patch tob for PascaL.xvi.o contains 25 caRds. line print file may be disk 

it TO ENABLE THE COMPlLER-S PRINT FILE TO BE lABEl EQUATED TO DISK AS FOR OTHER 

*> B57OO COMPILERS, iH PARTICULAR* THiS PATCH CHANGES THE NAME TO LiNE TO BE 

St CONSISTENT WITH ALL THE SYSTEM COMPILERS, THE ABILITY TO LABEL EQUATE FILE 

$J "LINE" T0 DISK IS NECESSARY IF THE COMPILER IS TO BE USED FROM A TERMINAL. 

$« NqTE that a BLOCKED FILE SHOULD NqT HAVE VARIABLE LENGTH RECORDS IF IT IS 

»l TO BE LABEL EQUATED TO A PRINTER, IF LESS THAN THE MAX NUMBER OF WORDS PER 

*i Record is written* the balance of the record Remains unchanged from what was 
*» LAST In the file Buffer* so tHat on being printed* "garbage" appears at the 

it END OF SUCH LINES, 

»« NILS A OTTE, UNIVERSITY qF NATAl, DURBAN. AUG - NOV 1977. 

$1 

SAVE FIlE out line DISk SERIAL t20ll200] ( 1* 17* 90* SAVE lU % PRInT FIlE 10036000 

x avoid blocking records of variable length l003600l 
aRRay icard* aLgOlcaRocoi93* Lines* xlinecojui; 10130000 

% avoid blocking variable LENGTH RECORDS 10130001 

array HEAdTEXT* ERRLlNEC0ll63i 10133000 

WRITEC LlNE[N03*17*XLlNEr*3); 20042000 

WRITE( LlNEcNO]*17*XLINE[*3); 20043000 

WRITE(LINE' 17*LINES[*3); 20045000 

WRITECLINE. l7*ERRLINEt*3)j 20195000 

LINEPnT «»P0lNTER(LlNESC13); 20315000 

REPLACE LINEPNT-8 BY " " FnR 17 WORDS; 20317000 

REPLACE XLlNEPNT-8 BY LINEPNT-S FOR 17 WORDS; 20318000 

REPLACE P0INTER(ERRlINIC*3) By "**** », lINEPNT FOR 16 wORDS^ 20319000 

REPLACE aLGOLPNT flY LINePNt FOR 9 WORdS; 20321009 

REPLACE P0InTER(HEADTExTC*3) BY LINEPNT FOR 10 wORDS* "PAGE 1 "* 20326000 

LiNEPNT FOR 6 WORDS; 20326100 

WRITECLINE' 17* XREFLI NEC * 3 J ^ 20549000 

LOCKC LINE* * )* X & CRUNCH 20550000 

WRITECLINE* 17*XREFLlNEt*3); L I nECnT » «L I nECnT*1 ; 20560000 

WRITECLINE* 17* xREFlINfC * 3 ) ^ LiNECNT »«LlNECNT+ U 2o57loOO 

WRITECLINE* TERMMESS); 90084000 

WRITECLINE* NOERRORS); 90111000 

WRITECLINE' eRRORS*NUMeRRS) ; 91110000 

WRITECLINE* ERRQRMESSl CI 3 ) ; 91112000 

WRITECLINE* ERR0RMESS2C I-6o3 ); 91114000 

$# PATCH 709 For PASCAL.XVI.O CONTAINS 17 CARDS. NO PRInT IF NO LIST & NO ERRORS 
»» TO OPEN THE PRINT FILE ONLY IF THE LiST OPTION Is SET OR IF SYNTAX ERRORS 
$« ARE DETECTED, IF THE FIrST CArD IN THE PASCAL SOURCE RESETS THE LIST OPTION 
$, (*$L- *) AND NO SYNTAX ERRORS ARE DEtECtED* tHEN tHE PRINT FILE WiLL NOT BE 
*» CREATED CEVEN FOR THE HEaDInG) aS FOR OTHER COMPILERS. IN PaRTIqULaR' THIS 

SI Implementation does not require a test prior to printing each lIne to 

Sf DETERMINE WHETHER A HEADING HAS BEEN PRINTED, It ONLY DOES THIS TEST wHEN 

S» THE L^ST OPTION IS SET AFTER THE FIRST CARD OR EXPlICITlY THEREAFTER* OR 

S| In THE "PRINTERRORS" ROUTINE. 

SI NILS A OTTE* UNIVERSITY qF NaTAL* DURBAN. AUG - NqV 1977. 



SI 



IF PA6ECNT»1 THEN WRITECLINECNO] * 17*HeaDTeXTC * 3 ) ELSE 20029900 

WRITEC LINECPA8E3); 20030000 

WRITEC LINEcDBL3*17*HEADTExTC*3); 20031000 

IF NOT LISTOPTION THEN 20194000 

be6in if pagecntso tHfn heading; PRINTLINE End; 20194100 

REPLACE POInTERCHEADTEXTC*] )+45 BY TEXTPNT+5 FDR 2*"/"* 20329000 

TEXTPNT+l FOR 2* "/"* TEXTPNT+3 FOR 2} 20330000 



NEWCARd; LISTOPTIOnj*CHCCkOPTIONjsTRUE; % OEFAUIT 20402100 

INSYMBOL; % ANALYSING FIRST CARD MAY CHANGE DEFAULT LIST OPTN 20^02200 
iF LISTOPTION AND PAGEGNTsq ThEN hEADiNG; % ON FjRST PAGE, 20^02300 

if listdption then tf paqecntmo then heading; % qn first page30282100 
c »« " "; x to initialize "insymbol" 90034000 

nItialize; % Compiler tables* newcard* inSYmbol 90035000 

90036000 
F PaGECNT > % THERE HAS BEEN SOME LISTING 90088000 

HEn begin WRItE( lINECDBL] )t WRITE( LINECD8L] ) END; 90089000 

IF PA6eCNT>0 then % TheRe HAS B^eN LISTING 90110000 

* PATCH 710 FOR PASCAL. XVI. CONTAINS 4 CARDS. NO OVERPRINTING WITH BLANK LINE 
I TO PREVENT OVERPRINTING WITH BLANK LINES. IF THE OPTION FOR "BOLDFACE" 
« PRINTING OF RESERVED WqRDS IS SET (*$R+ *) THEN EACH LINE IS CONSTRUCTED BY 
I 2 OVERPRINTS FOR THE RESERVED WORDS ONLY* THEN ONE PRINT OF THE FULL TEXT. 
» THE AIM OF THIS PATCH IS TO SKIP THE OVERPRINTING FOR ALL THOSE LINES IN 
» WHICH NO RESERVED WORDS OCCijR. 

I NILS A OTTE« UNIVERSITY OF NATAL* DURBAN. AUG - NOV 1977. 
$1 

DEFINE RESWORDPRESENT = RESWORDOPTION, C 1 1 U »i 10159100 

IF REAlCRESWORDOPTION) a 3 THEN % RESERVED WoRD IS PRESENT 20040000 

RESWORDOPTION i= RESWORDOPtION AND TRUEJ % RESET RESWORDPRESENT 20057100 
RESWORDOPTION «* B00LEAn(3); X SET RESWORDPRESEnT BIT 30179000 
PATCH 711 FOR PASCAL. XVl.O CONTAINS lO CARDS. PASCOOl/USERCODE UNIQUE NAME 
TO GENERATE A UNIQUE FILE NaME IN THE DISK DIRECTORY, THIS PATCH CHANGES THE 
METHOD FOR GENERATING A yNlOUE FILE NAME FOR THE AlGOL sOuRCE CODE OUTPUT OF 
THE COMPILER. fORMeRLY* THtS WAS qONe USING The TIMe FUNCTION TO OBTAIN 

Some random digits, the method used In patch/merge is adopted here, namely 

STARTING with THE PREFIX (MFID) "PASCOOI"* A SEARCH Is PERFORMED TO DETERMINE 
whether SUCH A FIlE nAmE IS ALREADY CATALOGUED. IF SO* 1 IS ADDED AND THE 

search repeated. in addition* the file is created with a save factor 
(Retention peRioo) of zero oays so that a halt-load will remove the file 
automatically. 
See patch 704. 

NILS A OTTE, university oF NATAl* DURBAN. AUG - NOV 1977, 

ROCEOURE SEARCHDISkDIrECTORYc Fp a ); FILE F; ARRAY ACO3; 20222100 

SEARCHC F, AC*] ); % END OF SEARCHDI SKDIRECTORY; 20222200 

20222300 

charpnt Is pointer(chco3)*7; chco] »e " "; 20322000 

CHtOJ l« "PASCOOO"; CHaRPNT »« PO INTER C CHt 3 ) +5; 90016000 

pascalgol.fid «b user i^ timec-d; 90017000 

DO BEGIN Cl«C+i; replace CHaRPNT By C fOR 3 DlQlTS; 90018000 

PASCALGOL.MFID «s AlGOLNAMf «s CHtOj; 90019000 

SEARCHDISKDIRECT0RY( PASCAlGOL* LINESC*] )i 90020000 

END UNTIL LlNESC03«-U % FIlE nOT ON DISK 90021000 

*# patch 712 for pascal. xvl.o contains 2 cards. mark procedure levels in margin 
$« Patch to maRk the start and end of procedures and functions by annotating the 

t« margin with the SYMBOLS "+P" & "-P" FOLLOWED BY THE LEVEL NUMBER. 
»« NILS A OTTE* university OF NATAL* DURBAN. AUG - NOV 1977, 
SI 

margin("+p",curlevel); % mark procedure level 80420100 

marqIn("-p"*curlevel); % mark End of procedure 80702100 

»# patch 713 for pascal. XVl.O. CONTAINS I4 CARDS. CORRECTS ERROR MESSAGE ETC 

SI CORRECTS THE DOUBLE "NO ErrOrS" MESSAGE AND THE OUTPUT OF HEADINGS 

SI WHEN LI IS SET AFTER L-. 

t« ALSO CBRRECTS THE SCANNING PROBLEM WHEN cOMPRER OPTIONS ARE INCORRECT. 

St DAViD A COOPER, HERIOT-WATT UNIVERSITY AUGUST 1978 
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$1 

ERRnK102MESS(//"102 *** WARnInG ONLY* ULEGAl COMPILER OPT ION. ") 10188750 

* % 10188751 

IF eRRNUMsioO or eRRNUM»102 20181600 

THEN NuMERRs »« NUMERRS - H a;*ERROR NUMBER 102 Is ONLY AN ILLEGAL 20181610 

% * DOLLAR OPTION WARNING & 20181626 

% *ERROR NUMBER 100 AlONE SHOULD NOT 20181650 

ELSE LISTOPTION »« Ca***" ELSE 30265000 

END 30280800 

ELSE ERRCR(102); 30280810 

IF ERR(102) THEN 90090710 

WRlTE(LlNE*ERR0R102MESS)i 90090720 

* 90110000 

% 90U1000 

(H102 ***wARNiNg only* ILLEqAL DOLLAR OPTION.")* 91106900 

$# PATCH 800 FOR PASC AL. XV 1 .0. CONTAINS 10 CARDS, 

it TO REMOVE CONFLICTS BETWEEN HERIQT'WATT & NAtAl EXISTING PATCHES. 
St 

MAXSYMS = 800«» %MAX NUMBER OF SYMBOLS IN ONE EXPRESSION. 10052000 

MaXPNTRS s 25*; XmaX number of UNDECLARED POINTERS(FORWO ) . 10056000 

DEFINE ERR(ERRI) « 800LEAn(04ErRP[ C ERRl ) . C6 J 2 ] ] CO J ( ( ERRl ) . [4 « 5 ] ) J 1 ] )#; 10156100 

INTEGER EXPRLEVeL* EXPINVARCNT; % 40018000 

INTEGER Index, CTYPE, NUMFORWaRDS^TX, I; % 80403000 

INTEGER PROGNAMELENQTH; % 90013900 

IF ERRdOO) % 90090600 

-; ALGOL FILE TAPE«PASCRUN/DISk SERIALS ALGOL FILE CARD*"* 90U9000 

pcpalgolname)»"/''*pcpuser)*" serial;"* % 90120000 

" xalgol stack » 2048; end,"; % 90120500 

$# PaTCH 998 FOR PaSCaL.XVI.O cONTaINS 10 CARDS, INSERT PaGE THROWS aT DESIRED 

$1 PATCH TO Insert page throws at desired points in the souRce to produce a 

S« NICELY LAID OUT LlSTjNG, 

$t 

S PAGE 19000000 

$ PAGE 20290000 

S PAGE 29000000 

» PAGE 39000000 

S PAGE 49000000 

S PAGE 59000000 

S PAGE 69000000 

$ PAGE 79000000 

S PAGE 89000000 

« PAGE 90070999 
$t NILS A OTTE* UNIVERSITY OF NATAL* DURBAN. AUG • NOV 1977, 
$1 

s# Patch 999 for Pascal, xvi,o, contains 1 cards, version number. 
$t 

DEFINE EDITION = "4 , 4"#; XAUGUSt 1978,.,DAViD A COOPER... 10028000 
LABEL OOOOOOOOOLINE 00178299CC EX 0/R;cOMMONs i;f ILE LlNE = LlNE PRINT;FiLE SsPATC hES/PASC AL;END«- /R 



